home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Diamond Collection / The Diamond Collection (Software Vault)(Digital Impact).ISO / cdr13 / golisp.zip / PAR.LSP < prev    next >
Text File  |  1995-01-20  |  608b  |  21 lines
  1. ;Draws lines parallel to picked line at a specified distance, on the current layer
  2. ;Bob Zelna
  3.  
  4. (DEFUN C:PAR ()
  5. (SETQ S (ENTSEL "\nPick Line: "))
  6. (IF (= "LINE" (CDR (ASSOC 0 (SETQ E (ENTGET (CAR S))))))
  7.  (PROGN
  8.   (SETQ X (CDR (ASSOC 10 E)))
  9.   (SETQ L (CDR (ASSOC 11 E)))
  10.   (SETQ Z (DISTANCE X L))
  11.   (SETQ A (ANGLE X L))
  12.   (SETQ D (GETDIST X "\nOffset Distance: "))
  13.   (SETQ B (POLAR X (+ (/ PI 2) A) D))
  14.   (SETQ C (POLAR B A Z))
  15.   (SETQ G (POLAR X (+ (* PI 1.5) A) D))
  16.   (SETQ H (POLAR G A Z))
  17.   (COMMAND "LINE" B C "" "LINE" G H "")
  18.  )
  19.  (PROMPT "\nYou MUST select a line, meatball !!")
  20. ))
  21.